// haitan.c

#include <ansi.h>

inherit ROOM;

void create()
{
        set("short", "海滩");
        set("long", @LONG
这里就是侠客岛了。北边是一望无际的大海；往南则是一片树林。
岛上的空气似乎非常新鲜，咸湿的海风中带着一股花香，这是好大的
一片沙滩，东首石崖下停着四十多艘大小的船只(boat)。
LONG );

        set("item_desc", ([
                "boat" : "这是侠客岛对外联系的大船。岛上的客人只"
                         "要上船(enter)就可以回中原。\n",
        ]));

        set("exits", ([
                "south" :__DIR__"lin1",
        ]));

        set("objects", ([
                __DIR__"npc/shizhe" : 1,
        ]));

        set("outdoors", "xiakedao");
        setup();
}

void init()
{
        add_action("do_enter", "enter");
}

int do_enter(string arg)
{
        object ob;
//      string dir;

        if (arg != "boat")
                return notify_fail("你要去哪儿？\n" );

        ob = this_player();
        message_vision("船夫一见有人上船，忙叫了一声：开船喽！\n", ob);
        message_vision("船夫升起帆，船就向北方航行。\n", ob);
        ob->move("/d/xiakedao/dahai") ;
        tell_object(ob, BLU "你在海上航行了一天一夜.......\n" NOR ) ;
        call_out("home", 10, ob);
        return 1;
}

void home(object ob)
{
        if (! objectp(ob))
                return;

        tell_object(ob, "大船终于抵达了南海岸边。你走下船来。\n");
        ob->move (__DIR__"haigang");
        message("vision", ob->name() + "下了海船，走了过来。\n",
                environment(ob), ob);
}